home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2posx10.zoo / m2posix.10 / src / posix1.ipp < prev    next >
Encoding:
Modula Implementation  |  1993-09-02  |  3.6 KB  |  128 lines
  1. IMPLEMENTATION MODULE POSIX1;
  2. __IMP_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. #if ISO_proc_const
  13. (*empty*)
  14. #else
  15.  
  16. IMPORT file,dir,proc,sys,term,sig,jump;
  17.  
  18. (*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
  19.  
  20. BEGIN (* POSIX1 *)
  21.   creat       := file.creat;
  22.   open        := file.open;
  23.   fcntl       := file.fcntl;
  24.   close       := file.close;
  25.   read        := file.read;
  26.   write       := file.write;
  27.   lseek       := file.lseek;
  28.   ftruncate   := file.ftruncate;
  29.   dup         := file.dup;
  30.   dup2        := file.dup2;
  31.   umask       := file.umask;
  32.   chmod       := file.chmod;
  33.   chown       := file.chown;
  34.   utime       := file.utime;
  35.   stat        := file.stat;
  36.   fstat       := file.fstat;
  37.   lstat       := file.lstat;
  38.   sISCHR      := file.sISCHR;
  39.   sISDIR      := file.sISDIR;
  40.   sISBLK      := file.sISBLK;
  41.   sISREG      := file.sISREG;
  42.   sISFIFO     := file.sISFIFO;
  43.   sISLNK      := file.sISLNK;
  44.   access      := file.access;
  45.   pipe        := file.pipe;
  46.  
  47.   chdir       := dir.chdir;
  48.   getcwd      := dir.getcwd;
  49.   mkdir       := dir.mkdir;
  50.   rmdir       := dir.rmdir;
  51.   link        := dir.link;
  52.   unlink      := dir.unlink;
  53.   rename      := dir.rename;
  54.   opendir     := dir.opendir;
  55.   readdir     := dir.readdir;
  56.   rewinddir   := dir.rewinddir;
  57.   closedir    := dir.closedir;
  58.   symlink     := dir.symlink;
  59.   readlink    := dir.readlink;
  60.  
  61.   getpid      := proc.getpid;
  62.   getppid     := proc.getppid;
  63.   getuid      := proc.getuid;
  64.   getgid      := proc.getgid;
  65.   geteuid     := proc.geteuid;
  66.   getegid     := proc.getegid;
  67.   setuid      := proc.setuid;
  68.   setgid      := proc.setgid;
  69.   getpgrp     := proc.getpgrp;
  70.   setpgid     := proc.setpgid;
  71.   setsid      := proc.setsid;
  72.   fork        := proc.fork;
  73.   execve      := proc.execve;
  74.   execv       := proc.execv;
  75.   execvp      := proc.execvp;
  76.   waitpid     := proc.waitpid;
  77.   wait        := proc.wait;
  78.   WIFEXITED   := proc.WIFEXITED;
  79.   WEXITSTATUS := proc.WEXITSTATUS;
  80.   WIFSIGNALED := proc.WIFSIGNALED;
  81.   WTERMSIG    := proc.WTERMSIG;
  82.   WIFSTOPPED  := proc.WIFSTOPPED;
  83.   WSTOPSIG    := proc.WSTOPSIG;
  84.   times       := proc.times;
  85.   Exit        := proc.Exit;
  86.  
  87.   isatty      := term.isatty;
  88.   ttyname     := term.ttyname;
  89.   ctermid     := term.ctermid;
  90.   cfgetispeed := term.cfgetispeed;
  91.   cfgetospeed := term.cfgetospeed;
  92.   cfsetispeed := term.cfsetispeed;
  93.   cfsetospeed := term.cfsetospeed;
  94.   tcgetattr   := term.tcgetattr;
  95.   tcsetattr   := term.tcsetattr;
  96.   tcsendbreak := term.tcsendbreak;
  97.   tcdrain     := term.tcdrain;
  98.   tcflow      := term.tcflow;
  99.   tcflush     := term.tcflush;
  100.   tcgetpgrp   := term.tcgetpgrp;
  101.   tcsetpgrp   := term.tcsetpgrp;
  102.  
  103.   sigemptyset := sig.sigemptyset;
  104.   sigfillset  := sig.sigfillset;
  105.   sigaddset   := sig.sigaddset;
  106.   sigdelset   := sig.sigdelset;
  107.   sigismember := sig.sigismember;
  108.   sigaction   := sig.sigaction;
  109.   sigprocmask := sig.sigprocmask;
  110.   sigpending  := sig.sigpending;
  111.   kill        := sig.kill;
  112.   pause       := sig.pause;
  113.   sigsuspend  := sig.sigsuspend;
  114.   sleep       := sig.sleep;
  115.   alarm       := sig.alarm;
  116.  
  117.   uname       := sys.uname;
  118.   pathconf    := sys.pathconf;
  119.   sysconf     := sys.sysconf;
  120.   time        := sys.time;
  121.  
  122.   setjmp      := jump.setjmp;
  123.   longjmp     := jump.longjmp;
  124.   sigsetjmp   := jump.sigsetjmp;
  125.   siglongjmp  := jump.siglongjmp;
  126. #endif
  127. END POSIX1.
  128.